home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / gold grabber (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  12KB  |  341 lines
  1. 10 printchr$(147)chr$(5):poke53280,12:poke53281,12
  2. 20 print:print:print
  3. 30 printtab(14)"flynn's gold"
  4. 40 ti$="000000"
  5. 100 read l,s,e:l=l+30
  6. 110 fori=0toe-s
  7. 120 readb:pokes+i,b:m=m+b
  8. 130 ifint((i+1)/8)*8<>(i+1)then160
  9. 140 readx:ifx<>mthen190
  10. 150 m=0:l=l+10
  11. 160 print"":rem 10 cursor down
  12. 165 printtab(10)"ready in"left$(str$(177-int(ti/60)),4)" seconds "
  13. 170 next
  14. 175 ifint(i/8)*8<>ithenreadx:ifx<>mthen190
  15. 180 sys49152:rem start game
  16. 190 printchr$(147):print:print:print
  17. 200 print"error in line #";l
  18. 300 end
  19. 1000 data 1000,49152,51714
  20. 1030 data 32,201,196,32,151,197,32,116,957
  21. 1040 data 196,32,68,198,169,63,141,21,888
  22. 1050 data 208,169,0,141,250,201,165,197,1331
  23. 1060 data 201,63,208,8,169,0,141,244,1034
  24. 1070 data 201,76,139,192,32,57,194,32,923
  25. 1080 data 89,194,32,136,194,32,226,192,1095
  26. 1090 data 32,203,193,32,237,193,32,13,935
  27. 1100 data 194,173,243,201,201,37,240,75,1364
  28. 1110 data 32,101,196,32,2,195,173,16,747
  29. 1120 data 208,41,2,208,201,173,1,208,1042
  30. 1130 data 174,0,208,172,0,208,32,78,872
  31. 1140 data 195,176,28,173,9,208,174,8,971
  32. 1150 data 208,172,8,208,32,78,195,176,1077
  33. 1160 data 14,173,11,208,174,10,208,172,970
  34. 1170 data 10,208,32,78,195,144,159,238,1064
  35. 1180 data 247,201,32,116,196,206,244,201,1443
  36. 1190 data 32,27,198,173,244,201,240,3,1118
  37. 1200 data 76,12,192,32,116,196,238,251,1113
  38. 1210 data 201,32,162,192,144,3,32,68,834
  39. 1220 data 198,32,233,197,32,151,197,76,1116
  40. 1230 data 12,192,169,0,141,239,201,174,1128
  41. 1240 data 244,201,240,52,172,253,201,24,1387
  42. 1250 data 120,248,173,239,201,105,1,141,1228
  43. 1260 data 239,201,216,88,136,208,240,202,1530
  44. 1270 data 208,234,32,40,198,24,120,248,1104
  45. 1280 data 173,241,201,109,239,201,141,241,1546
  46. 1290 data 201,173,242,201,105,0,141,242,1305
  47. 1300 data 201,216,88,32,176,197,24,96,1030
  48. 1310 data 56,96,173,0,220,74,74,74,767
  49. 1320 data 144,77,74,144,7,74,176,3,699
  50. 1330 data 76,122,193,96,206,234,201,208,1336
  51. 1340 data 30,169,8,141,234,201,169,3,955
  52. 1350 data 141,235,201,169,1,141,233,201,1322
  53. 1360 data 174,236,201,189,229,193,141,236,1599
  54. 1370 data 201,189,195,193,141,249,7,174,1349
  55. 1380 data 2,208,173,16,208,41,2,240,890
  56. 1390 data 7,232,224,64,240,16,208,11,1002
  57. 1400 data 232,208,8,173,16,208,9,2,856
  58. 1410 data 141,16,208,142,2,208,96,206,1019
  59. 1420 data 233,201,208,30,169,8,141,233,1223
  60. 1430 data 201,169,3,141,236,201,169,1,1121
  61. 1440 data 141,234,201,174,235,201,189,229,1604
  62. 1450 data 193,141,235,201,189,199,193,141,1492
  63. 1460 data 249,7,174,2,208,173,16,208,1037
  64. 1470 data 41,2,240,15,202,16,8,173,697
  65. 1480 data 16,208,41,253,141,16,208,142,1025
  66. 1490 data 2,208,96,202,224,25,240,250,1247
  67. 1500 data 208,245,173,16,208,41,2,240,1133
  68. 1510 data 65,173,229,201,240,60,173,230,1371
  69. 1520 data 201,73,255,162,0,232,56,233,1212
  70. 1530 data 20,176,250,32,197,197,202,208,1282
  71. 1540 data 250,142,229,201,238,247,201,238,1746
  72. 1550 data 247,201,32,176,197,24,120,248,1245
  73. 1560 data 173,243,201,105,1,141,243,201,1308
  74. 1570 data 216,88,162,3,32,86,196,173,956
  75. 1580 data 243,201,141,1,202,160,0,76,1024
  76. 1590 data 141,198,96,205,206,205,204,201,1456
  77. 1600 data 202,201,200,206,237,201,208,20,1475
  78. 1610 data 169,20,141,237,201,174,228,201,1371
  79. 1620 data 189,229,193,141,228,201,189,233,1603
  80. 1630 data 193,141,252,7,96,1,2,3,695
  81. 1640 data 0,210,211,212,211,173,223,201,1441
  82. 1650 data 240,15,238,5,208,240,1,96,1043
  83. 1660 data 206,223,201,169,0,141,5,208,1153
  84. 1670 data 96,173,27,212,16,251,238,223,1236
  85. 1680 data 201,141,4,208,96,173,224,201,1248
  86. 1690 data 240,15,238,7,208,240,1,96,1045
  87. 1700 data 169,0,141,224,201,141,7,208,1091
  88. 1710 data 96,206,227,201,208,18,169,100,1225
  89. 1720 data 141,227,201,173,27,212,201,55,1237
  90. 1730 data 144,249,141,6,208,238,224,201,1411
  91. 1740 data 96,173,225,201,240,10,238,1,1184
  92. 1750 data 208,240,1,96,206,225,201,96,1273
  93. 1760 data 173,16,208,41,2,208,9,238,895
  94. 1770 data 225,201,173,2,208,141,0,208,1158
  95. 1780 data 96,173,226,201,240,10,238,11,1195
  96. 1790 data 208,240,1,96,206,226,201,96,1274
  97. 1800 data 206,238,201,208,26,169,50,141,1239
  98. 1810 data 238,201,173,16,208,41,2,208,1087
  99. 1820 data 14,173,2,208,48,9,238,226,918
  100. 1830 data 201,173,2,208,141,10,208,96,1039
  101. 1840 data 173,232,201,16,6,32,224,194,1078
  102. 1850 data 76,150,194,32,241,194,172,231,1290
  103. 1860 data 201,16,8,32,196,194,200,208,1055
  104. 1870 data 250,240,6,32,170,194,136,208,1236
  105. 1880 data 250,96,174,8,208,232,240,4,1212
  106. 1890 data 142,8,208,96,173,27,212,16,882
  107. 1900 data 3,169,255,44,169,254,141,231,1266
  108. 1910 data 201,160,1,96,174,8,208,202,1050
  109. 1920 data 224,50,240,4,142,8,208,96,972
  110. 1930 data 173,27,212,16,3,169,1,44,645
  111. 1940 data 169,2,141,231,201,160,255,96,1255
  112. 1950 data 174,9,208,202,224,75,176,5,1073
  113. 1960 data 169,1,141,232,201,142,9,208,1103
  114. 1970 data 96,174,9,208,232,224,235,144,1322
  115. 1980 data 5,169,255,141,232,201,142,9,1154
  116. 1990 data 208,96,173,16,208,41,2,208,952
  117. 2000 data 68,173,5,208,174,4,208,172,1012
  118. 2010 data 4,208,32,78,195,144,20,169,850
  119. 2020 data 1,141,229,201,173,4,208,141,1098
  120. 2030 data 230,201,32,173,197,32,248,193,1306
  121. 2040 data 238,247,201,173,7,208,174,6,1254
  122. 2050 data 208,172,6,208,32,78,195,144,1043
  123. 2060 data 20,169,1,141,229,201,173,6,940
  124. 2070 data 208,141,230,201,32,173,197,32,1214
  125. 2080 data 24,194,238,247,201,96,205,3,1208
  126. 2090 data 208,208,22,169,8,141,1,202,959
  127. 2100 data 236,2,208,240,14,204,2,208,1114
  128. 2110 data 240,9,202,200,206,1,202,16,1076
  129. 2120 data 239,24,96,56,96,173,246,201,1131
  130. 2130 data 208,21,173,247,201,240,67,206,1363
  131. 2140 data 247,201,160,2,140,248,201,140,1339
  132. 2150 data 246,201,169,0,141,249,201,206,1413
  133. 2160 data 249,201,48,10,208,44,169,32,961
  134. 2170 data 141,4,212,76,186,195,172,248,1234
  135. 2180 data 201,185,11,196,141,1,212,185,1132
  136. 2190 data 14,196,141,0,212,169,5,141,878
  137. 2200 data 249,201,169,33,141,4,212,136,1145
  138. 2210 data 16,5,169,0,141,246,201,140,918
  139. 2220 data 248,201,173,250,201,208,21,173,1475
  140. 2230 data 251,201,240,68,206,251,201,160,1578
  141. 2240 data 17,140,252,201,140,250,201,169,1370
  142. 2250 data 0,141,245,201,206,245,201,48,1287
  143. 2260 data 10,208,45,169,16,141,11,212,812
  144. 2270 data 76,8,196,172,252,201,185,17,1107
  145. 2280 data 196,141,8,212,185,35,196,141,1114
  146. 2290 data 7,212,185,53,196,141,245,201,1240
  147. 2300 data 169,33,141,11,212,136,16,5,723
  148. 2310 data 169,0,141,250,201,140,252,201,1354
  149. 2320 data 76,49,234,63,59,56,75,190,802
  150. 2330 data 99,11,12,13,16,16,18,18,203
  151. 2340 data 21,21,19,0,21,21,19,0,122
  152. 2350 data 19,21,19,48,143,78,195,195,718
  153. 2360 data 209,209,31,31,239,0,31,31,781
  154. 2370 data 239,0,239,31,239,11,3,7,769
  155. 2380 data 7,7,7,7,7,7,7,7,56
  156. 2390 data 15,7,7,7,15,7,7,169,234
  157. 2400 data 6,44,169,10,170,160,13,24,596
  158. 2410 data 76,240,255,169,9,44,169,23,985
  159. 2420 data 44,169,31,168,24,32,240,255,963
  160. 2430 data 169,30,76,210,255,173,253,201,1367
  161. 2440 data 73,15,170,160,75,136,208,253,1090
  162. 2450 data 202,208,248,96,160,6,169,0,1089
  163. 2460 data 153,223,201,136,16,248,160,5,1142
  164. 2470 data 169,0,153,0,208,153,6,208,897
  165. 2480 data 185,182,196,153,248,7,185,188,1344
  166. 2490 data 196,153,39,208,136,16,233,200,1181
  167. 2500 data 140,21,208,200,200,140,16,208,1133
  168. 2510 data 162,6,189,194,196,157,231,201,1336
  169. 2520 data 202,16,247,169,25,141,2,208,1010
  170. 2530 data 169,229,141,3,208,96,207,200,1253
  171. 2540 data 203,203,210,207,12,6,7,7,855
  172. 2550 data 8,2,2,1,1,1,3,3,21
  173. 2560 data 20,169,0,141,33,208,169,6,746
  174. 2570 data 141,32,208,160,198,169,167,32,1107
  175. 2580 data 30,171,160,11,169,0,153,245,939
  176. 2590 data 201,136,16,250,238,253,201,120,1415
  177. 2600 data 169,102,141,24,3,169,254,141,1003
  178. 2610 data 25,3,169,109,141,20,3,169,639
  179. 2620 data 195,141,21,3,88,162,0,189,799
  180. 2630 data 31,199,157,0,50,189,31,200,857
  181. 2640 data 157,0,51,202,208,241,162,191,1212
  182. 2650 data 189,30,201,157,127,52,202,208,1166
  183. 2660 data 247,142,6,212,142,13,212,202,1176
  184. 2670 data 142,15,212,169,9,141,5,212,905
  185. 2680 data 141,12,212,169,128,141,18,212,1033
  186. 2690 data 169,143,141,24,212,162,8,189,1048
  187. 2700 data 106,197,157,223,7,189,115,197,1191
  188. 2710 data 157,183,7,189,124,197,157,143,1157
  189. 2720 data 7,189,133,197,157,103,7,189,982
  190. 2730 data 142,197,157,63,7,169,5,157,897
  191. 2740 data 223,219,157,183,219,157,143,219,1520
  192. 2750 data 157,103,219,157,63,219,202,16,1136
  193. 2760 data 206,96,233,160,160,160,160,160,1335
  194. 2770 data 160,160,160,32,32,233,160,160,1097
  195. 2780 data 160,160,160,160,32,32,32,233,969
  196. 2790 data 205,160,205,160,160,32,32,32,986
  197. 2800 data 32,233,223,233,160,160,32,32,1105
  198. 2810 data 32,